Cream of the Crop 1/Cream of the Crop 1.iso/WINDOWS/MSWLOG12.ARJ/TOWERSET.LG

Text File | 1990-06-11 | 255b | 9 lines

to towerset :tn :value
!
! Called by HANOI. Sets the current number of disks on tower :tn,
! as stored in the globals tower1, tower2, and tower3.
!
if :tn = 1 [make "tower1 :value] [if :tn = 2 [make "tower2 :value] \
   [make "tower3 :value]]
end